home comics writing pictures archive about

SpecialAccount.cls

Language: Visual Basic Class
Last Modified: 2020-06-27 1:58:30 PM UTC
File Size: 998 bytes
http://www.penguinstew.ca/example/ExcelSQLExport/SpecialAccount.cls
VERSION10CLASS
BEGIN
MultiUse=1True
END
AttributeVB_Name=SpecialAccount
AttributeVB_GlobalNameSpace=False
AttributeVB_Creatable=False
AttributeVB_PredeclaredId=False
AttributeVB_Exposed=False
PublicSpecialAccountIdAsInteger
PublicSpecialAccountMonthIdAsInteger
PublicMonthIdAsInteger
PublicNameAsString
PublicamountAsDouble
PublicrowNumbersAsVector
PublicisNewAsBoolean
PrivateSubClass_Initialize
SetrowNumbers=NewVector
rowNumbersSetType0
EndSub
PublicFunctionToSQLAsString
ToSQL=INSERTINTO[SpecialAccounts][SpecialAccountId][Name]VALUESMeSpecialAccountIdMeName
EndFunction
PublicFunctionToMonthSqlAsString
ToMonthSql=INSERTINTO[SpecialAccountMonths][SpecialAccountMonthId][SpecialAccountId][MonthId][Amount]VALUESMeSpecialAccountMonthIdMeSpecialAccountIdMeMonthIdMeamount
EndFunction
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31